generateParamAlgList <-function(){
	
	outList <-list()
	outListCnt <- 1
	
	
	
		#hierarchical
		outList[[outListCnt]] <- new("HierParamClusterAlg",1)
		outListCnt <- outListCnt+1
		
		#DBSCAN
		outList[[outListCnt]] <- new("DBScanParamClusterAlg",1)
		outListCnt <- outListCnt+1
#		
		#FCM
		outList[[outListCnt]] <- new("FCMParamClusterAlg",1)
		outListCnt <- outListCnt+1
		
		#FCM +N
		outList[[outListCnt]] <- new("FCMParamClusterAlg",1,method="NC")
		outListCnt <- outListCnt+1
		
		#GK
		outList[[outListCnt]] <- new("FCMParamClusterAlg",1,method="GK")
		outListCnt <- outListCnt+1
#		
		#KG+N
		outList[[outListCnt]] <- new("FCMParamClusterAlg",1,method="GKN")
		outListCnt <- outListCnt+1
		
	
	return(outList)
}